From a51a781b6550891b03582459743fa569ed58b11e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 9 Jan 2001 10:08:23 +0000 Subject: [PATCH] (widget-choose): Call display-popup-menus-p instead of display-mouse-p. --- lisp/wid-edit.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 52851524b8a..34d9fb75a9d 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -204,7 +204,7 @@ mouse event, and the number of elements in items is less than `widget-menu-max-size', a popup menu will be used, otherwise the minibuffer." (cond ((and (< (length items) widget-menu-max-size) - event (display-mouse-p)) + event (display-popup-menus-p)) ;; Mouse click. (x-popup-menu event (list title (cons "" items)))) -- 2.30.2